home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / ISDNV110.SRP < prev    next >
Encoding:
Text File  |  1996-06-05  |  2.7 KB  |  152 lines
  1. rem Copyright (c) PhoneLink plc 
  2. rem Generic V110 - ISDN (8/3/96)
  3.  
  4. label InitDevice
  5. echo off
  6. label OffToGate 
  7. rem ISDN Offline to Gate (also contains Pad to Gate)
  8. echo off
  9. echo script[59]
  10. send    "at{InitModemStr}char(13)" 
  11. timeout 3,modem_fail
  12. find    "OK"
  13. echo script[52].
  14. send    "atdt{PreTel}{SiteTel}{PostFix}char(13)"
  15. timeout 15,connect_fail
  16. finderr 0,BUSY,busy
  17. finderr 103,NO DIALTONE,connect_fail
  18. finderr 0,NO CARRIER,no_carrier
  19. find    "CONNECT"
  20. send    "char(13)"
  21. timeout 5,pad_fail
  22. find    "PAD>"
  23. label PadToGate
  24. echo off
  25. echo script[53]
  26. send    "call {NUA}char(13)"
  27. timeout 3,nua_bad1
  28. finderr 0,COM,nua_good
  29. find    "ZZZ"
  30. label nua_bad1
  31. echo script[58]
  32. send    "call {NUA}char(13)"
  33. timeout 3,nua_bad2
  34. finderr 0,COM,nua_good
  35. find    "ZZZ"
  36. label nua_bad2
  37. echo script[58]
  38. send    "call {NUA}char(13)"
  39. timeout 3,nua_fail
  40. finderr 0,CLR,cleared
  41. finderr 0,UNAVAILABLE,nua_fail
  42. find    "COM"
  43. label nua_good
  44. echo script[54].
  45. end
  46.  
  47. label GateToPad
  48. echo off
  49. echo script[92]
  50. send    "char(16)"
  51. timeout 10,ctrl_p_fail
  52. finderr 0,PAD>,waiting
  53. find    "*"
  54. send "CLRchar(13)"
  55. timeout 10,clear_fail
  56. find "CLR"
  57. label waiting
  58. echo script[91].
  59. end
  60.  
  61. label GateToOff
  62. rem Gate to Offline (also contains Pad to Offline)
  63. echo off
  64. echo script[92]
  65. send    "char(16)"
  66. timeout 10,ctrl_p_fail
  67. finderr 0,PAD>,PadToOff
  68. find    "*"
  69. send "CLRchar(13)"
  70. timeout 10,clear_fail
  71. find "CLR"
  72. label PadToOff
  73. echo off 
  74. echo script[92]
  75. send    "+++"
  76. timeout 5,command_mode_fail
  77. find    "OK"
  78. send    "at{TermModemStr}char(13)"
  79. timeout 5,hang_up_fail
  80. rem included for TA's returning no carrier when hanging up
  81. finderr 0,NO CARRIER,no_carrier_hang_up
  82. find    "OK"
  83. label no_carrier_hang_up
  84. echo script[99].
  85. end
  86.  
  87. label modem_offline
  88. echo script[92]
  89. send "char(16)"
  90. timeout 5,clear
  91. find "*"
  92. label clear
  93. send    "CLRchar(13)"
  94. timeout 5,command_mode
  95. find    "CLR"
  96. label command_mode
  97. send    "+++"
  98. timeout 5,hang_up
  99. find    "OK"
  100. label hang_up
  101. send    "at{TermModemStr}char(13)"
  102. timeout 5,hang_fail
  103. finderr 0,NO CARRIER,hang_fail
  104. find    "OK"
  105. echo script[99]
  106. label hang_fail
  107. abort
  108.  
  109. label modem_fail
  110. echo script[23]
  111. goto command_mode
  112.  
  113. label connect_fail
  114. echo script[1]
  115. goto command_mode
  116.  
  117. label busy
  118. echo script[2]
  119. goto command_mode
  120.  
  121. label no_carrier
  122. echo script[3]
  123. goto command_mode
  124.  
  125. label pad_fail
  126. echo script[4]
  127. goto command_mode
  128.  
  129. label nua_fail
  130. echo script[22]
  131. goto command_mode
  132.  
  133. label cleared
  134. echo script[21]
  135. goto command_mode
  136.  
  137. label ctrl_p_fail
  138. echo script[12]
  139. goto modem_offline
  140.  
  141. label clear_fail
  142. echo script[13]
  143. goto clear
  144.  
  145. label command_mode_fail
  146. echo script[15]
  147. goto command_mode
  148.  
  149. label hang_up_fail
  150. echo script[17]
  151. abort
  152.